Option Explicit
Sub P_Sample004()
    Dim myFileName As String
    myFileName = Application.InputBox(Prompt:= _
        "пJɮצW١BƧW٪|", Title:="T{sb")
    If Len(Dir(myFileName, vbDirectory)) > 0 Then
        If (GetAttr(myFileName) And vbDirectory) = vbDirectory Then
            MsgBox "ҫwƧsbC"
       Else
            MsgBox "ҫwɮצsbC"
       End If
    Else
        MsgBox "ҫwɮשάOؿsbC"
    End If
End Sub
